#!/usr/bin/perl
#delete_group.cgi

require "./mdmgroups-lib.pl";
&ReadParse();
&foreign_require("groups","accounts.pl");

#&header($text{'edit_title'}, "", "index", 0, 1);
my $gpname=$in{'groupname'};
&delete_grp($gpname);
&redirect("index.cgi");

1;